home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb35005.lsp < prev    next >
Text File  |  1998-03-15  |  1KB  |  50 lines
  1. ;=============350.05 BOLZEN 25 EXZENTRISCH
  2.  
  3. (EAITDBL "0035005")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:35005V1 (/ P1)
  8.    (EAITDBL "0035005")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 0)
  13.    (EAITbpt "SCH" 32 nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (setvar "ORTHOMODE" 1)
  17.    (setvar "OSMODE" 0)
  18.    (command EAITege (strcat EAITpfn "35005v1") P1 "" "" "")
  19.  
  20.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ (EAITbw)(EAITgib 15)) 15) "" "" ""
  21.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  22.    )
  23.  
  24.    (EAITvarz2)
  25.    (princ)
  26. )
  27.  
  28. (defun C:35005S1 (/ P1)
  29.    (EAITDBL "0035005")
  30.    (princ (strcat "\n\n" EAITbez1))
  31.    (EAITvari)
  32.    (EAITvars)
  33.    (setvar "ORTHOMODE" 0)
  34.    (EAITbpt "SCH" 32 nil)
  35.    (setq P1 (getpoint))
  36.    (if (= P1 nil)(setq P1 (EAITrpt)))
  37.    (setvar "ORTHOMODE" 1)
  38.    (setvar "OSMODE" 0)
  39.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  40.    (command EAITege (strcat EAITpfn "35005S1") P1 "" "" EAITofkei pause)
  41.  
  42.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ (EAITbw)(EAITgib 60)) 11) "" "" ""
  43.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  44.    )
  45.  
  46.    (EAITvarz2)
  47.    (princ)
  48. )
  49. (princ)
  50.